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html generate-form() { 
uuid := newUUIDO; 
return form-html(uuid); 

} 

void biz-togic(uuid,data) { 
start(uuid); 

// Execute SQL with data as argument 
// Store result in the variable res 
tBstable::oommit(res,uuid); 

} 

html start-transactiontuuid.data) { 
// Spawn new thread to execute biz-logic 
// with uuid and data as arguments 
time := current-timeO; 
return stat-page-html(uuid,data,time); 

} 

html check(uuid,data,time) { 
if current-timeO - time > timeout then 
testabte::roliback(uuid); 
res := testable::get-outcome(uuid); 
if res = nil then 

return start-transaction(uuid,data); 
else 

return result-page-html(res); 
else 

res := testable::get-outcome(uuid); 
rf res N nil then 
return result-page-html(res); 
else 

return stat-page-html(uuid,data t time); 

} 
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void FormServlet(HttpServtetRequest req, 

HttpServtetResponse resp) { 
requesl.getSession(true); 

// Normal Form Creation processing with Form handling servlet name stored 
// in a hidden field, and action set to the Start servlet} 
void BizLogic^HttpServletRequest req, 
HttpServtetResponse resp) { 
WeTD^ivergetConnectionC , JDBC-URL ,, ); 
// Execute JOBC commands and other logic 
// Output result normally; Do NOT commit any JDBC updates} 
void Start(HttpServletRequest req, 
HttpServtetResponse resp) { 
WorkQueue.queue(req.clone{), 

resp.ctoneO); 
SendStatPage(req, resp);} 
void Check(HttpServletRequest req, 
HttpServtetResponse resp) { 
result = getOutcome(req.getSession()); 
if (result != null) V{ 
resulLsend(resp); 
return;} 

job = geUobFromQueue(req.getSessionO); 
if (currentTime() - job.time > timeout) { 
job.abortO; 

WorkQueue.queue(job.req, job.resp); 
} else {SendStatPageQob.req, job.resp);}} 
voidWorkerThreadO{ 
while(true) { 

job s getlobFromQueueO; 
servlet = job.targetServlet 
try{ 

//Begin Transaction 
servtet.serviceQob.req, job.resp); 
storeOutcomeQob.req, job.resp); 
removeJobFromQueue(job); 
// Commit Transaction 
} catch (Exception e) { 
//Abort transaction}}} 
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